home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Agamik BarCoding / Agamik BarCoder Demo 3.03 / Agamik BarCoder Demo 3.03.rsrc / STR#_4001.txt < prev    next >
Encoding:
Text File  |  1998-05-23  |  5.0 KB  |  531 lines
  1. %%DocumentPreview: Macintosh_ColorPic
  2.  
  3. %%EndComments
  4.  
  5. %%BeginProcSet: Agamik_packedarray 1.0 0
  6.  
  7. userdict /Agamik_packedarray 5 dict dup begin put
  8.  
  9. /initialize
  10.  
  11. {
  12.  
  13. /packedarray where { pop } { Agamik_packedarray begin Agamik_packedarray {
  14.  
  15. dup xcheck { bind } if
  16.  
  17. userdict 3 1 roll put
  18.  
  19. } forall
  20.  
  21.  end
  22.  
  23. } ifelse
  24.  
  25. } def
  26.  
  27. /terminate { } def
  28.  
  29. /packedarray { array astore readonly } def
  30.  
  31. /setpacking { pop } def
  32.  
  33. /currentpacking { false } def
  34.  
  35. currentdict readonly pop end
  36.  
  37. %%EndProcSet
  38.  
  39. Agamik_packedarray /initialize get exec
  40.  
  41. %%BeginProcSet: Agamik_cshow 1.1 0
  42.  
  43. currentpacking true setpacking
  44.  
  45. userdict /Agamik_cshow 3 dict dup begin put
  46.  
  47. /initialize
  48.  
  49. {
  50.  
  51. /cshow where { pop } {
  52.  
  53. userdict /Agamik_cshow_vars 1 dict dup begin put
  54.  
  55. /_cshow {} def
  56.  
  57. Agamik_cshow begin
  58.  
  59. Agamik_cshow {
  60.  
  61. dup xcheck { bind } if
  62.  
  63. userdict 3 1 roll put
  64.  
  65. } forall
  66.  
  67.  end
  68.  
  69.  end
  70.  
  71. } ifelse
  72.  
  73. } def
  74.  
  75. /terminate {} def
  76.  
  77. /cshow {
  78.  
  79. exch
  80.  
  81. Agamik_cshow_vars
  82.  
  83. exch /_cshow
  84.  
  85. exch put {
  86.  
  87. 0 0 Agamik_cshow_vars /_cshow get exec
  88.  
  89. } forall
  90.  
  91. } def
  92.  
  93. currentdict readonly pop end
  94.  
  95. setpacking
  96.  
  97. %%EndProcSet
  98.  
  99. %%BeginProcSet: Agamik_customcolor 1.0 0
  100.  
  101. currentpacking true setpacking
  102.  
  103. userdict /Agamik_customcolor 5 dict dup begin put
  104.  
  105. /initialize {
  106.  
  107. /setcustomcolor where { pop }
  108.  
  109. { Agamik_customcolor begin Agamik_customcolor {
  110.  
  111. dup xcheck { bind } if
  112.  
  113. pop pop
  114.  
  115. } forall
  116.  
  117. end
  118.  
  119. Agamik_customcolor begin
  120.  
  121. } ifelse
  122.  
  123. } def
  124.  
  125. /terminate {
  126.  
  127. currentdict Agamik_customcolor eq { end } if } def
  128.  
  129. /findcmykcustomcolor { 5 packedarray }  def
  130.  
  131. /setcustomcolor {
  132.  
  133. exch
  134.  
  135. aload pop pop
  136.  
  137. 4 { 4 index mul 4 1 roll } repeat
  138.  
  139. 5 -1 roll pop
  140.  
  141. setcmykcolor
  142.  
  143. } def
  144.  
  145. /setoverprint { pop } def
  146.  
  147. currentdict readonly pop end
  148.  
  149. setpacking
  150.  
  151. %%EndProcSet
  152.  
  153. %%BeginProcSet: Agamik_Barcoder 1.20 0
  154.  
  155. currentpacking true setpacking
  156.  
  157. userdict /Agamik_Barcoder 73 dict dup begin put
  158.  
  159. /initialize {
  160.  
  161. userdict /Agamik_Barcoder_vars 31 dict dup begin put
  162.  
  163. /_lp /none def
  164.  
  165. /_pf {} def
  166.  
  167. /_ps {} def
  168.  
  169. /_psf {} def
  170.  
  171. /_pss {} def
  172.  
  173. /_a null def
  174.  
  175. /_as null def
  176.  
  177. /_tt 2 array def
  178.  
  179. /_tl 2 array def
  180.  
  181. /_tm matrix def
  182.  
  183. /t {} def
  184.  
  185. /_gf null def
  186.  
  187. /_cf 4 array def
  188.  
  189. /_if null def
  190.  
  191. /_of false def
  192.  
  193. /_fc {} def
  194.  
  195. /_gs null def
  196.  
  197. /_cs 4 array def
  198.  
  199. /_is null def
  200.  
  201. /_os false def
  202.  
  203. /_sc {} def
  204.  
  205. /_pd 1 dict def
  206.  
  207. /_ed 15 dict def
  208.  
  209. /_pm matrix def
  210.  
  211. /_fm null def
  212.  
  213. /_fd null def
  214.  
  215. /_fdd null def
  216.  
  217. /_sm null def
  218.  
  219. /_sd null def
  220.  
  221. /_sdd null def
  222.  
  223. /_i null def
  224.  
  225. Agamik_Barcoder begin
  226.  
  227. Agamik_Barcoder dup /nc get begin {
  228.  
  229. dup xcheck { bind } if
  230.  
  231. pop pop } forall
  232.  
  233. end
  234.  
  235. end
  236.  
  237. end
  238.  
  239. Agamik_Barcoder begin
  240.  
  241. Agamik_Barcoder_vars begin
  242.  
  243. newpath
  244.  
  245. } def
  246.  
  247. /terminate { end end } def
  248.  
  249. /_ null def
  250.  
  251. /ddef { Agamik_Barcoder_vars 3 1 roll put } def
  252.  
  253. /npop { { pop } repeat } def
  254.  
  255. /sw {
  256.  
  257. stringwidth
  258.  
  259. exch 5 -1 roll 3 index 1 sub mul add
  260.  
  261. 4 1 roll 3 1 roll 1 sub mul add
  262.  
  263. } def
  264.  
  265. /ss {
  266.  
  267. 3 -1 roll pop
  268.  
  269. 4 1 roll {
  270.  
  271. 2 npop (0) exch
  272.  
  273. 2 copy 0 exch put pop
  274.  
  275. gsave
  276.  
  277. false charpath
  278.  
  279. currentpoint
  280.  
  281. 4 index setmatrix
  282.  
  283. stroke
  284.  
  285. grestore
  286.  
  287. moveto
  288.  
  289. 2 copy rmoveto
  290.  
  291. } exch cshow
  292.  
  293. 3 npop
  294.  
  295. } def
  296.  
  297. /pl {
  298.  
  299. transform
  300.  
  301. 0.25 sub round 0.25 add exch
  302.  
  303. 0.25 sub round 0.25 add exch
  304.  
  305. itransform
  306.  
  307. } def
  308.  
  309. /setstrokeadjust where
  310.  
  311. { pop true setstrokeadjust
  312.  
  313. /c { curveto } def
  314.  
  315. /C /c load def
  316.  
  317. /v { currentpoint 6 2 roll curveto } def
  318.  
  319. /V /v load def
  320.  
  321. /y { 2 copy curveto } def
  322.  
  323. /Y /y load def
  324.  
  325. /l { lineto } def
  326.  
  327. /L /l load def
  328.  
  329. /m { moveto } def
  330.  
  331. }
  332.  
  333. {
  334.  
  335. /c    { pl curveto } def
  336.  
  337. /C /c load def
  338.  
  339. /v { currentpoint 6 2 roll pl curveto } def
  340.  
  341. /V /v load def
  342.  
  343. /y { pl 2 copy curveto } def
  344.  
  345. /Y /y load def
  346.  
  347. /l { pl lineto } def
  348.  
  349. /L /l load def
  350.  
  351. /m { pl moveto } def
  352.  
  353. } ifelse
  354.  
  355. /d { setdash } def
  356.  
  357. /cf currentflat def
  358.  
  359. /i { dup 0 eq { pop cf } if setflat } def
  360.  
  361. /j { setlinejoin } def
  362.  
  363. /J { setlinecap } def
  364.  
  365. /M { setmiterlimit } def
  366.  
  367. /w { setlinewidth } def
  368.  
  369. /F { _pf } def
  370.  
  371. /f { closepath F } def
  372.  
  373. /S { _ps } def
  374.  
  375. /O { 0 ne /_of exch ddef /_lp /none ddef } def
  376.  
  377. /g {
  378.  
  379. /_gf exch ddef
  380.  
  381. /_fc {
  382.  
  383. _lp /fill ne {
  384.  
  385. _of setoverprint
  386.  
  387. _gf setgray
  388.  
  389. /_lp /fill ddef
  390.  
  391. } if
  392.  
  393. } ddef
  394.  
  395. /_pf { _fc fill } ddef
  396.  
  397. /_psf { _fc exch pop ashow } ddef
  398.  
  399. /_lp /none ddef
  400.  
  401. } def
  402.  
  403. /G {
  404.  
  405. /_gs exch ddef
  406.  
  407. /_sc {
  408.  
  409. _lp /stroke ne {
  410.  
  411. _os setoverprint
  412.  
  413. _gs setgray
  414.  
  415. /_lp /stroke ddef
  416.  
  417. } if
  418.  
  419. } ddef
  420.  
  421. /_ps { _sc stroke } ddef
  422.  
  423. /_pss { _sc ss } ddef
  424.  
  425. /_lp /none ddef
  426.  
  427. } def
  428.  
  429. /x {
  430.  
  431. /_gf exch ddef
  432.  
  433. findcmykcustomcolor
  434.  
  435. /_if exch ddef
  436.  
  437. /_fc {
  438.  
  439. _lp /fill ne {
  440.  
  441. _of setoverprint
  442.  
  443. _if _gf 1 exch sub setcustomcolor
  444.  
  445. /_lp /fill ddef
  446.  
  447. } if
  448.  
  449. } ddef
  450.  
  451. /_pf { _fc fill } ddef
  452.  
  453. /_psf { _fc exch pop ashow } ddef
  454.  
  455. /_lp /none ddef
  456.  
  457. } def
  458.  
  459. /X {
  460.  
  461. /_gs exch ddef
  462.  
  463. findcmykcustomcolor
  464.  
  465. /_is exch ddef
  466.  
  467. /_sc {
  468.  
  469. _lp /stroke ne {
  470.  
  471. _os setoverprint
  472.  
  473. _is _gs 1 exch sub setcustomcolor
  474.  
  475. /_lp /stroke ddef
  476.  
  477. } if
  478.  
  479. } ddef
  480.  
  481. /_ps { _sc stroke } ddef
  482.  
  483. /_pss { _sc ss } ddef
  484.  
  485. /_lp /none ddef
  486.  
  487. } def
  488.  
  489. /A { pop } def
  490.  
  491. /nc 3 dict def
  492.  
  493. nc begin
  494.  
  495. /setgray { pop } bind def
  496.  
  497. /setcmykcolor { 4 npop } bind def
  498.  
  499. /setcustomcolor { 2 npop } bind def
  500.  
  501. currentdict readonly pop end
  502.  
  503. currentdict readonly pop end
  504.  
  505. setpacking
  506.  
  507. %%EndProcSet
  508.  
  509. %%EndProlog
  510.  
  511. %%BeginSetup
  512.  
  513. Agamik_cshow /initialize get exec
  514.  
  515. Agamik_customcolor /initialize get exec
  516.  
  517. Agamik_Barcoder /initialize get exec
  518.  
  519. %%EndSetup
  520.  
  521. 0 A
  522.  
  523. 0 O
  524.  
  525. 1 g
  526.  
  527. 0 i
  528.  
  529. 0 J 0 j 6 w 4 M []0 d
  530.  
  531.